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**F ILE**1D**D 1 SMOUNT 
DDDDDDDD III] SSSSSSSS MM MM 000000 UU UU 
DDDDDDDD HII! SSSSSSSS MM M 000000 UU 
DD DD I] SS MMMM MMMM 600 00 UU 
DD oD I! $$ MMMM MMMM 600 00 UU UU 
DD DD I] SS MM 00 00 UU UU 
DD DD I] SS MM MM MM 00 00 UU UU 
DD DD I] SSSSSS MM MM 00 00 UU UU 
DD DD i] SSSSSS MM MM 00 00 UU UU 
DD DD I] SS MM MM 00 00 UU UU 
DD DD I] SS MM MM 00 00 UU UU 
DD DD I] SS MM MM 00 0O UU UU 
DD DD I] SS MM MM 00 UU UU 
DDDDDDDD III! SSSSSSSS MM MM 000000 UUUUUUUUUU 
DDDDDDDD 11111] SSSSSSSS MM MM 000000 UUUUUUUUUU 
LL III] SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIT] SSSSSSSS 
LLLLLLLLLL 1111 SSSSSSSS 
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FACILITY: 
MASS STORAGE DEVICE MANAGEMENT SUBROUTINES 
S ABSTRACT: 
THIS ROUTINE DISMOUNTS THE INDICATED DEVICE. 


; ENVIRONMENT: 


VAX/VMS EXEC 
MODE = KERNEL 
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AUTHOR: ANDREW C. GOLDSTEIN, CREATION DATE: 2-NOV-1977 14:10 
; MODIFIED BY: 


v03-019 CDdS0001 Christian D. Saether 28-Aug-1984 
fan ere Ss$_ VALNOTVAL 1D errors when converting device 
ock. 


V03-018 HHO049 Hai H 16-Aug-1984 
Call IOCSDALLOC DAT ae ne to deallocate the device 
on dismount of @ foreign volume. 


v03-017 ACG0441 Andrew C. Goldstein, 13-Aug-1984 10:17 
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NAAR WR OOD NAUE WN O OONA UNE WN 0 OO NAU EWN OOO NOUS WIN OODNOU EWN 
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COOSCOCCOCSOOCOOOCOOOCOOCOOOCOOOOOOOOOOOOOOOOOOOOOCOOOOOOOOOOoOoOO: 


OoOooooooooeooo 


Sooooooo 
Sooooooooo 


Ty ~ HSNO A OUNTED ASE STORE VOLUME EEE HRES BEETS PROTEGE NEI Ray || 


Issue both an IO$_UNLOAD and IO$_AVAILABLE to correctly 
release tape drives. 


vO3-016 ACG0441 Andrew f. Goldstein, 8-Aug-1984 11:33 
Rework foreign volume dismount; locate all code in 
this module. General code cleanup. 


v03-015 TMKOO01 Todd M. Katz 21-Apr-1984 
When deleting phe logical name associated with a mounted volume, 
delete the Log cal_name block by cep ting LNMSDELETE_LNMB 
instead of LNASDELETE. Doing so will ensure that this deletion 
takes place as if the system service SDELLNM had been ce} ‘es 
| 


to delete the logical name. In other words, not only will the 
target pogncal name be deleted, but so will all outer access 
mode aliases. 

VO3-014 LMP0221 L. Mark Pilant, 30-Mar-1984 13:48 
Change UCBSL_OWNUIC to ORBSL_OWNER and UCBS$W_VPROT to 
ORBSW_PROT. 

v03-013 ACG0371 Andrew C. Goldstein, 11-Nov-1983 9:32 
Set PHY_IO in PCB privilege mask instead of PHD 


V03-012 LY0427 Larry Yetto 55-OCT-1983 14:51:12 
If the DELJNL service call to delete the RU journal fails 
then deassign the journal channel 


v01-011 TCMO005 Trudy C, Matthews 22-Sep-1983 
If device is to be deallocated on dismount, don't do it here. 
Wait until Last channel deassign instead. This keeps the 
device allocated and the lock present until all activity 
has ceased from this mount. 


v03-010 TCM0004 Trudy C. Matthews 07-Sep-1983 
Af aug ae caused foreign disks not to be unloaded on 
smount. 


v03-009 TCMO003 Toudy C. Matthews 22-Aug-1983 
Undo change made in CM0001. If a device is dismounted and 
there are still channels assigned to it, we just want to 


fe Dw ee we ew ww wlan lola lo loleoleololeleolelelelolelolelololo) 


deallocate the local UCB. The cluster-wide lock (if it 
exists) will be dequeved when the last channel is de-assigned. 


v03-008 TCMO0002 Trudy C. Matthews 22-Jun-1983 
Decrement refcount when a disk is dismounted. MOUNT has 


OOOO CCOOCOOSSOSOOSCOSOSOOOOOCOOCOOSOOSCOSOSOSOOOSOOOOOOOOSOOOoOO 


COOCOCOCOCOCOOCOOOCOOSOSOSOSOSOOSOSOSOOOOOCOOOOOOOOOCOOOOOSoOoOOS 


been chengee to increment the refcount while the disk 


S$ AQOOOOOCOOCOCC OOOO OOOOOOWO | POO0900 090909 09 INI NINN SIN NNO AAA AAA AOAO 
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1 
1 
1 
1 
0 : is mounte 
1 V03-007 ADE9006 Alan D. Eldridge 01-MAy-1983 
! Restore PCB address (R4) on dismount of foreign devices. 
1 v03-006 $TJ3103 Steven T. Jeffreys, 27-Apr-1983 
! Delete RUJ on dismount. 
1 VO3-005 DMW4034 pMwalp 26-May-1983 | 
} Intergate new logical name structures. 
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V03-004 TCMO001 dy {Matthews 21-Apr-1982 
Call routine EXESDAL oc: DEV to deallocate a Soules, This 
nat Ba. handles cluster device deallocation correctly. 


v03-003 put OTON er H. Lipman 20-Jun-1982 
$Q10W now ecbren zes the EFN and IOSB parameters 
correctly. Eliminate the synchronization code here. 


v03-002 $1J0257 teven T. Jeffreys, 12-Apr-1982 
- Do not nung deste allocation access mode. 
- Make code AST reentrant. This includes the addition 
of the local subroutine DO_10. 
v03-001 $] s0eee Steven T. Jeffreys 23-Mar-1982 
Clear the ‘mount verification possible’ bit in the vCcB 
so that SDISMOU will succeed even if no volume is present 
in the drive (as in version 2). 


NAMES WN SO OD NAME WIN 0 OD NA UE WIN SO OONOA UNE WIN OC OONOM 


11 
11 
11 
11 
11 
1 
1 
1 
1 
1 
1 
1 
1 
1 
00 1 
00 1 
33 
0000 1 v02-008 ACG0248 Andrew C. Goldstein, 23-Dec-1981 11:56 
4 : Fix logical name interlocks 
44 1 v02-007 ACG0226 Andrew C. Goldstein, 24-Nov-1981 22:29 
44 ! Issue IO0$_AVAILABLE = D1 SMOUNT /NOUNLOAD 
0000 13 v0O006 $1TJ0138 Steven T. Jeffreys, | 12-Nov-1981 
0000 14 Use IOCSCVT_DEVNAM to format the device name. 
0000 14 
0000 14 v0005 ACcG0062 Andrew C. Goldstein, 16-Oct-1979 13:53 
464 1? Unload volumes mounted foreign on dismount 
itd 14 v0004 ACG0003 Andrew C. Goldstein, 11-Feb-1979 11:07 
44 1? Add handling of dummy MTL entry for volume set 
0000 14 Andrew C. Goldstein, 12-Jul-78 20:08 
V - L NTRY N UN 
9000 16 0003 - ADD ERROR LOG ENTRY FOR FOREIGN DISMOUNT 
444 151 ;e* 
8 
38 13 3; Define system control blocks 
00 15 SDDBDEF ; DOB 
00 15 SDEVDEF 3; device characteristics bits 
Bg 138 DCDEF 3; define device types 
0 15 SEMBE TDEF ; define error log message codes 
00 160 SEMBVMDEF ; define error tog buffer format 
161 SIODEF 3; define I/0 func jen codes 
19 SIPLDEF 3; define te. g definitions 
16 SLCKDEF ; define lock manager value 
164 SLKIDEF ; define codes for $6 GETLKI 
165 SORBOEF 3 object’ sri ate prock offsets 
166 SPCBDEF 3; process con rok 8 
16 SPROEF 3 proc peer reo sone "codes 
0 198 SPRVDEF 3 privilege b Cetin ons 
0 169 SHiLoci ; mounted volume List entry 
8 8 159 SSSDEF : syaten service codes 
17 SUCBDEF : | 
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0000002C 
000000 


SVCBDEF 


1986 OS:et:26 ESYS"SRCIDISROUNT RAR; 


; VCB 


3 Local storage allocated on stack (addressed off R3) 


p° 
12 
= 44 


Y$D1SMOUNT 


; length of ht name buffer 

; channel num umber 

; string descriptor of device name 
; device name string buffer 


; total size of stack locals 
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FUNCTIONAL DESCRIPTION: 


This routine dismounts the indicated mounted volume List entry. 
The MTL and logical name, if it sti t exists, are deleted, and the 
volume share coun is decremented. If the share count goes to 
zero, the volume itself is dismounted. 


CALLING SEQUENCE: 
JSB 1OCSDISMOUNT 


INPUT PARAMETERS: 
R3 = LBC to unload volume 
LBS to not unload 
R4 = address of process PCB 
R6 = address of mounted volume List entry 


IMPLICIT INPUTS: 
IPL = IPLS$_ASTDEL 


OUTPUT PARAMETERS: 
RO-R2,R6 smashed, other registers preserved 


IMPLICIT OUTPUTS: 
NONE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ROUTINE VALUE: 
SS$_NORMAL ,SS$_NOIOCHAN 


SIDE EFFECTS: 
Volume dismounted: logical name & MTL deallocated, VCB gone or soon 
to go, ACP process may become delete 


OOoOOCOCCOCOCSOSOSOOSOOSOOSOSOOSOOOSCOOOOOOOOOOOOOOOOOOoOOo 


COOOCOCSCSCOOSOOSOSOSOSOOCSOOSOOSOOCOOSOOCSOSOOSOOOOOOOOOOOOOOOOOoOO 
WOOOW—-m> > 1D W=SSENVSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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FP WWW AA AAUININININININININININ — + + 3 3 3 3 3 2QO OOD OCOOO0O0000000000MMmMD00 
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IOCSDISMOUNT:: 
3 PUSHR #*M<R3,R4,R5> ; save registers 
55 OCA MOVL  MTLSL_UCB(R6).RS5 > get UCB address 
10 A TSTL MTLSL~LOGNAME (R6) ; test address of logical name 
1 BEQL 1 : branch if none 
DSBINT S*#IPLS$_ASTDEL 
0 900099"¢ 16 1 JSB LNASLOCKY ; lock the table 
A D 1 MOVL MTLS$L_LOGNAME (R6) ,R1 3 qef address of logical name 
900008 ‘E 16 1 JSB LNMSDELETE_LNMB ; delete the logical name 
0000000 'E 16 JSB LNMSUNLOCK 3: and unlock the table 
ENBINT 
7E 0B A6 QA 108: MOVZBL BT RD STATUSIRG) . =f SP) ; save MTL entry eyatus byte 
50 be D MOVL R6,R : get MIL address in R 
1 BGEQ 2 ; branch if process space address 
FFCA’ pane fe SOEAPAGED ; deallocate to system paged pool 
51 08 A C 208 MOVZWL MTILSW_SIZE(R6),R1 : get block size 
53 00000000'9F oe MOVAL a@#CTLSGQ_ALLOCREG.R3 ; and process allocation List head 
FFBA‘ 4 BSBW EXESDEALCOCATE ; and deallocate to process pool 


35 
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#35$_NORMAL RO ; set success 
130$ ; and get out 


00 38 AS 6 615—~—CO'E 50$: BBSS eocyey DMT,UCBSL_DEVCHAR(R5) ,60$ ; set mark for dismount 


h if volume to be unloaded 


4 
4 3 
4 ; Now lock the 1/0 database mutex and decrement the volume share count. 
2 i If it goes to zero, mark the UCB for dismount. 
4 ASSUME WILSV.VOL SET EQ 0 
OF 8E 4 4 308: BLBS (S$P)+,4 :; branch if MTL entry was for volume set 
FFB4' 4 BSBW SCHSIOLOCKW 3; lock 1/0 database 
50 34 a5 0D 4 MOVL UCBSL_VCB(R5) ,RO ; and VCB address 
4C Ad ° 5 DECW BSW-MCOUNT (RO) 3; decrement mount count 
0c 5 BEQL 3; branch if now idle 
FFAS’ 3 2 BSB SCHSIOUNLOCK 3; else unlock I/0 database 
40$ SETIPL 
50 1 5 OVL 
5 R 
6 
6 
6 
6 


00 64 AS OC 5 
04 
53 AO 


: branc 
BBCC  #UCB$V_UNLOAD,UCB$W_STS(RS),70$ ; else clear unload bit 
70$:  BICB2 #<avCBSV (MO NTVERD = ; clear MV bit in the VCB 


oO 
o 
~N 
m Wo 
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4 
23 
44 
rf 
3 
48 
if 
37 
2? 
3 
58 
59 
é1 
07 66 STATUS2(R : 
00 64 AS 09 3 ti 65 80$: BBSC #uces? MOUNTING ,UCBSW_STS(R5) ,90$ ; clean up status bits 
FF86" 30 007 64 90$:  BSBW  SCHSIOONLOCK ; unlock the 1/0 database 
07 65 SETIPL #0 
ns 
07 68 : Assign a channel to the device. If it is mounted Files-11, issue a dismount 
07 4 ; Q10. (If it is mounted foreign, deassigning the channel will complete the 
4 a 3; cleanup). 
2f gc ce f ie suet OL OC. S5TE SP ; allocate local storage on stack 
50 20 00 008 74 MOVL #NAME _LENGTH,RO ; set name buffer Length 
51 OC AS DE 008 75 MOVAL NAME STRING(R3),R1 : set name buffer address 
08 As =—«51—s:Os«008 76 MOVL R1,DEVICE_NAME+4(R3) § : copy address to descriptor 
54 Be 08 77 CLRL RG 3 get node + device name 
FF6D' 30 009 re BSBW IOCSCVT_DEVNAM : Tormat the device name 
04 A3 51 DO 009 7 MOVL R1, DEVICE _NAME(R3) 3 save resultant string length 
63 D4 009 80 CLRL CHAN k3) ; init channel number 
09 H+ SASSIGN_S CHAN=CHANNEL(R3) ,- ; and assign a channel to the device 
099 § DEVNAM=DEVICE_NAME (R3) 
28 50 =2«€9 ved HH BLBC RO,120$ : if this fails, we will have a hung device 
8 E1 AA 5 Bac #DEVSV_FOR,- ; if BC then not foreign 
08 33 A AC § UCBSL_BEVCHAR(RS),100$_ ; 
54 0 8 AF MOVL LOCAL ~SIZE+4(SP) ,R4 3 recover PCB address 
he 8 FOREIG ; dismount foreign device 
4 11 3 3 110$ 3 continue 
00000438 8F oD 7 91 100$: PUSHL #<I0$ ACPCONTROL ! 10$M_DMOUNT> 
DD D 3 PUSHL CHANNEL(R3) 3 push channel number 
0255'°CF FB . % CALLS #2,W*O0_10 : issue the dismount Q10 
54 04 A 7 C4 94 MOVAQ DEVICE_RAME(R3) ,R4 ; get address of device name descriptor 
0183 3 c8 95 SBW DELETE RUJ 3 elote the recovery unit journal (ruj) 
C 36 1198: DASSGN_S CHAR=CHANNEL (R3) ; deassign the channe 
a . 3h 120$: DOL #LOCAL_SIZE,SP 3; restore stack pointer 


vou-000. 
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38 BA BOD8 494 1308: pore #*M<R3,R4,R5> ; restore registers 


red 
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vc 


DISMOUNT = DISMOUN 
voe~000 DISMOUNT 
DB 
DB 
DB 
DB 
DB 
dB 
DB 
DB 
DB 
DB 
51 DB 
FiR % DE 
41 5 E9 Q0E1 
OE4 
3¢ 0E4 
OE6 
OE6 
SEO 
OE 
O0E6 
QOE6 
Baee 
OE6 
OOE6 
04 A2 0041 BF 88 Q0E6 
= ww BREE 
50. 1C AS) =O COEF 
82 60 0 OOF3 
82 0086 C C OOF6 
82 70 A5 00 OOFB 
82 54 A5 B80 OOFF 
7E 34 A5_ 14 (C1 0103 
56 14 28 AS C1 (0108 
50 66 9A 0100 
50 «06 (011 
62 10 00 66 38 ec Q11 
D4 011 
63 9E C 28 OQO1IA 
4 A Q11 
FEDD' 30 01 
38 =6BA : 
1 
3 
52. D4 «(01 3 
02 0084 (4 16 €3 01 
52 4 12D 
09 64 AS BS E 1¢F 
1 DD 0154 
63 dD 01 g 
0255'CF O02 FB Q1 
11 =DD 130 
3 DD O13F 
ie § Fe 141 
0084 (4 1 16 F 146 
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IGN DEVICE BrEEen 1s OSiai sae Lets tec Tee efolat nar: 1 ve 4, 
¢. -SBTTL DISMOUNT FOREIGN DEVICE 
4 ; Foreign devices are dismounted on the spot, with no interlock checks. 
5 ; The reason for this is that the onty event we could defer the dismount 
§ ; to is last channel deassign, which is not a suitable location. 
8 ; Construct and send the error log message signalling dismount. 
10 ° 
11 -ENABLE LSB 
\§ FOREIGN: :; dismount foreign device 
1 MOVZBL #EMBSK_VM_LENGTH,R1 ; length of error Log moses 4 
14 BSBW ERL aLCoc OCEMB ; allocate an error og buf 
1? BLBC RO,10 3; branch if failure 
9 PUSHR eens R3,R4,R5> ; save address of buffer and R3, R4, RS 
18 ASSUME EMBSL_VM =ERREN T EQ EMBSL:VM_OWNUIC+4 
19 ASSUME EMBSt ~VRAO CNT EQ EMBSL-VM_ERRCNT+4 
0 ASSUME EMBSW_VM_ Nt j EQ EMBSL_VM_OPRCNT+4 
1 ASSUME EMBSB_VA_NAM LN G £Q EMB$W-VM_UNIT+2 
; ASSUME EMBST_ -N TXT EQ EMBSB_VM_NAMLNG+1 
ASSUME EMBSW~VM~V CNUM EQ EMBST— vn TXT#15 
4 ASSUME EMBSW_VM “NUMSET EQ EMBSW_ aVOLMMeg 
5 ASSUME EMBST_VM_LABEL EQ EMBSW~ vA ~NUMSE T+ 
3 MOVW #EMBSK_VD,EMBSW_VM ENTRY (R2) 3 message code = dismount 
8 ADDL #EMBSL~VM_ OWNUIC,R2 3 point to entries to be filled in 
9 MOVL UCBSL_ORBTR ; get ORB address 
50 ORBSL-OWNER(RO) , (R2)+ ; volume owner UIC 
11 MOVZWL UCBSW-ERRCNT(R5S, (R2)+ ; volume error count 
2 UCBSL_OPCNT(R (R2)+  : volume o eration count 
MOVW UCBSW-UNIT( Rd). (R2)+ = at? nit num 
4 ADDL #VCBST_VOLNAME ,UCBSL_VCB(R5), ~(SP) r " save address of volume Label 
5 ADOL UCBSL_BDB(RS), © ADDBSTIN AME , R6°; calculate device name address 
36 MOVZBL (R6),RO 3 get length of device name 
37 INCL RO ; bump to include count byte 
HS MOVCS RO,(R6),#0,416,(R2) 3; copy device name into message 
9 CLRL (R$) ¢ ; zero rel vol number and volume set size 
40 MOVC3 #12,a(SP)+,(R3) ; copy volume Labe 
41 POPR #*M<R2> ; recover buffer address 
4g BSBW ERLSRELEASEMB ; release error log buffer and send 
ti POPR #*A<R5,R4,R5> 
45 : Release the device, using an unload and/or available function, 
+8 3; depending on whether the volume is supposed to be unloaded or not. 
rt: 10s: CLRL R2 ; assume eae bit clear 
4 BBCS #PRVSV_PHY_10,PCBSQ -PRIVERS), pe 3; set PHY_I10O privitege and test 
9 INCL io¥° s set - save state 
20$: BCC sUCesy Unt UM. OAD. UCBSW_ sts(h5). : branch if no unload 
§ PUSHL ; 4 "for is 
PUSHL CHANRELCS) ; push channel numbe 
54 CALLS #2,W*D0_I ; issue the unloed | pd rewind Q10 
e? 30$ PUSHL Atte Bayou 3; now release d 
§ PUSHL CHAN ar : push channel number 
5 CALLS aS’ op ; issue the unload or rewind Q10 
58 INSV OR FPRVSV _PHY_10,#1,PCBSQ_PRIV(R4) ; restore privilege bit 
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0800 8F AA Cw #UCBSM_VA - 3 . 
Ob as Bl oye : Myst ass clear software volume valid 


Now cong Lote the dismount. If the device is cluster accessible, raise 


the device lock to read the value block. 
0088 8F 8B PUSHR #*M<R3,R7> 3 save R3 & R7 
4 a5 0D MOVL iti geB<RS), R7 : get VCB addre 
3 13 3 Aor ; allocate [eck status block on stack 
04 A620 i D MOVL Stése -LOCKID(RS) ,4(R6) n: device lock ID 
6¢ 1 BEQL i bra ie. none - not cluster dev 
61 38 AS E BBS gh 4 ~AUL gpeee _DEVCHAR(R »,40$ ; ieee if per allocated 
04 00 MOVL #LCKSK- i otherwise raise lock to PW 
SENQW_S fenODEsRO = 3 queue for the device lock 


KSB=(R6) 
EFNsS“HEXESC _SYS 
FLAGS=AL CKSH_ CONVERT LCKSM, VALBLK:L CASH. SYNCSTS!LCKSM_ NOQUOTA 


6150 €9 BLBC ug check if érro 
09 66 =6—E8 BLBS (RO), 
O9FO 8F 66 861 CMPW (R6), #SS$_VALNOTVALID ; Is the error simply value block not valid? 
13 BEQL 35$ 3: No problem. 
11 BRB LOCKERR 3; Problem. 


; Now get the lock count on the volume lock. If it is about to go to 
; zero, clear the value block in the device lock. 


$5$: ae -(SP) ; lLongword for lock count 


RQ -(SP) 3; item List end + retlen 
08 AE OF PUSHAB 8(SP) ; address of block count 
02050004 8F ODD PUSHL #LKIS_LCKCOUNTA@16!4 ; size & item code for lock count 
. 0 MOVL SP,R1 ; item list address 
i CLRO 0s = (§P) : 10SB 
50 SE 00 MOVL SP,RO 
$GETLKIW_S LKIDADR=VCB$L_VOLLKID(R7) ,- 
ITMLST=(R1),=- 
EFN=S“#EXESC_SYSEFN,~ 
10SB=(RO) 
29 50 =€E9 BLBC CKERR ; bug check if error 
26 6 E9 BLBC Boho LOCKERR 
he. a] ADDL 4,§ 3; clean I0SB & item List off stack 
8E D7 DECL pss 3; check lock count against 1 
06 12 BNEQ ; branch if other mounts exist 
08 A6 =7C 40$ CLRQ R6) 3; last mount - clear value block 
10 A6 =7C CLRQ 6(R6 
Now take out the 1/0 da toes mutex again, and clean out the mount. 


; Release the volume lock if there is one. 


bos: BSBW SCHSIOLOCKW 
pear VCBSL_VOLLKID(R7) ,RO 


QL 
DEQ_S LKID=RO ; release it 
BLBS~ R0,60$ : branch if OK 


To here on any errors from lock management services. 


fw Terre 


3; take 1/0 database mutex 
; get volume lock ID 
; branch if none 


04 5u E8 
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- 0 A MOUNTED MASS STORAGE VOLUME 16-SEP-1984 00:0 AX/VMS Macro v04-00 Page 1 ER! 
DIS REIGN DEVICE IT ESTERS TRE ve 1g) vor 
LOCKERR: 
: BUG_CHECK XQPERR,FATAL 3; unexpected lock manager error 
Clear out the UCB. 
CA bos: BICL #<DEVSM_DMT!DEVSM_FOR!= ; clear aqrnee for dismount, foreign, 
DEVSM_RCK!DEVSM_WCK!= ; read/write chec 
D “SWLIDEVSM-MNT>,- ; software write locked, and mounted 
UCBSL =pEV HAR(RS 3 status bit. 
5c aS 7 DECW UcBSu- REFC(RS) 3 remove mount from ref count 
6 Sr MOVL R7,R ; get address of VCB. 
34 A5 bs CLRL UCBS$L_VCB(RS) : clear address of VCB. 
FOFB' 30 BSBW EXESDEANONPAGED ; deallocate VCB. 


0 
2 


MOVL UCBSL_ORB(R5) ,RO get the ORB address 


ASSUME ORBSL_OWN_PROT EQ ORBSL_SYS_PROT+4 
ASSUME ORBS$L-WOR-PROT EQ ORBSL_GRP_PROT+4 


18 AO CLRQ ORBSL_SYS mpettie 0) ; clear out stale protection info 
20 AQ) 37 CLRQ ORB$L_GRP (RO) 
60 CLRL ORBSL ~GUNER CRO) ; clear out stale owner also 
; Release the device lock with the updated value block. 
04 a6 DS : TSTL  4(R6) ; check if we have a lock ID 
oe =. Ve BEQL 80$ t Bronce if no lock 
01 v0 MOVL #LCKSK_CRMODE ,RO : R mode if not allocated 
03 38 AS 17 «*€1 BBC #DEVSV— “Alle UCBSL _pevenaninsy® *68 branch if not allocated 
05 00 MOVL aL CK SK “EXMODE ,RO™ : use EX mode if allocat ge. 
70$: SENGW. S$ LKMODE=RO,- 3 convert the device = 
he ni op tise ¢ 3; writing possibly Sodtiied value block 
FLAGS=#LCKSM_CONVERT!LCKSM_ EO TSy Ss LCKSM _VALBLK!LCKSM SYNCSTS!LCKSM_ NOQUOTA 
; Sorry about the tacky format above, but the assembler won't parse 
3; macro args broken across Lines. 
AC 50 «EY RO,LOCKERR ; bug check if error 
AS 66—sOE BLBC cra). LOCKERR 
: Call routine to deallocate the device when appropriate 
FDB9' 30 bos: BSBW IOCSDALLOC_DMT ; complete the deallocation now 
FDB6" 30 90$: BSBW SCHSIOUNLOCK : reteaee A 1/0 database mutex 
SETIPL # ; and d 
SE 18 CO ADDL #24,SP ; ftoun t e stack 
0088 8F Ba se #*M<R3,R7> : restore R3 &R 
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FUNC 
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i VOLUME 1 mites 9: OG: 3 AX/VMS 


~SBTTL DO_IO0 = COMMON I/0 ROUTINE 


Macro Vv04-00 Page 1 
SYS.SRCIDISMOUNT.MAR; 1 ( 


DO_10 
FUNCTIONAL DESCRIPTION: 


he nee is an envelope eg ty rar all 1/9 done alte eae 

module. Use a system event PL for the 1/0. Since $0 

preserss waits for the combination of the event "tee and 10SB 
e set, no special synchronization is needed here. 


INPUT: 

PUNUEAE) = $28°RncYon'coge “** for te 1/0 
OUTPUT: 

NONE. 
ROUTINE VALUE: 

RO = some system status code 


; Useful symbols 


4 
8 


offset to channel number 
offset to 1/0 function code 


common 1/0 routine 
reserve I0SB, address to R2 


OVAQ ),R2 
$Q10W_S EFN=S4#EXESC_SYSEFN,- use system event flag 
CHAN=CHAN(APJ,- use channel cametion” by caller 
FUNC=FUNC (AP) ,- use function code supplied by caller 
OSB=(R2) use local I0SB 
10$ branch if error 


set the return status in RO 
return 


BLBC —_ RO 
MOVZWL (R2),RO 
RET 


dD 4 
pApmount - DISMOUNT A MOUNTED MASS STORAGE VOLUME 1 mits ye 00:06:38 ene: Macro V04-00 Page 1g ER 
v04-000 DELETE_RUJ = DELETE RECOVERY UNIT JOURNA 5-SEP=-1984 03:41:26 CSYS.SRCIDISMOUNT.MAR; 1 (5) vo 
re 98 me ~SBTTL DELETE_RUJ = DELETE RECOVERY UNIT JOURNAL 
Ze 1 ; DELETE_RUJ 
ce 13 ; FUNCTIONAL DESCRIPTION: 
7E 15 ; Delete the povasery unit journal on this volume. 
7E 218 3 Failure to do so will leave the journal file open 
O027E i 3 and the device marked for dismount. This routine 
7E 18 ; must be called after the dismount $010 has been 
43 J? : sent to the ACP. 
ze 1 } INPUT: 
O27E 5 g : R4 = address of device name descriptor 
43 ; 2 : R5 = device UCB address 
Ogre 3 : OUTPUT: 
8 43 : 3 : NONE. (Contents of RO and R1 are unpredictable) 
O57E 530 ; ROUTINE VALUE: 
027E a3) ; 
O27—E 5 § ; NONE. 
O57e 88a 
O27E B36 DELETE_RUJ: ; delete recovery unit journal 
05 €0 O27E 536 BBS #DEVS$V_SQD,- 3; only disks have RUJ's 
41 38 AS b500 af UCBSL_BEVCHAR(RS) ,20$ ; 
0283 539 : Assign a channel to the RUJ. If the service fails, 
oe83 re : exit immediately, as it means that no RUJ is active. 
05 0283 348 : PUSHR #*M<RO,R2> ; save R2 and make local storage 
: eo Fe bSaB 54 MOVL P 3; save SP 
0288 544 SASSJNL_S CHAN = (R2),- ; channel to journal 
0288 545 JNLTYP = #DT$_RUJNL,=- ; journal type 
0288 338 DEVNAM = (R4) ; device name descriptor 
18 50 =«E9 8 “ ett BLBC RO,10$ : branch if error 
O2A7 549 : Delete the journal. The channel to the journal is 
0 ag 29 3; deassigned in the process. 
o A? 26 ; SDELJNL_S CHAN = (R2) ; delete the journal 
0c 50 «CEB B3 33 BLBS RO, 10$ ; if success then deljnl 
B6 54 ; deassigned the channel for us 
0 Bg 555 SDEASJNL_S CHAN = (R2) 3; deassign the journal channel 
05 BA C 56 10$: POPR B*mM<RO,R2> 3 restore stack 
05 C4 57 208: B 3; return 
Be 
c5 60 - END 


E 4 
ae = DISMOUNT A MOUNTED MASS STORAGE VOLUME 16-SEP-1984 00:02:34 YAX/VMS Macro 04-00 p 
SoS 1986 Osiatice age 


Symbol table SYS.SRCJDISMOUNT.MAR; 1 
$$T1 = 00000000 LCKSM_SYNCSTS s 8 
BUG$_XQPERR eeeeeere =X 02 LCKSM-VALBLK = 1 

CHAN z 90000008 LKI$ CCKCOUNT s 5 

CHANNEL : 0 LNMSBELETE_LNMB eeeeeeee =X 
CJFSASSJNL ekeeenee GX LNMSLOCKW eeeneeee = x 
CJFSDEASJNL keeeeeere GX LNMSUNLOCK reeeeeee 
CJFSDELJNL eeeeenee GX LOCAL_SIZE = 0000002¢ 
CTL$GQ_ALLOCREG reeeeeee LOCKERR 6 1ED R 02 
DDBST_RNAME = 00000014 MTL$B_STATUS = 0 3 

DELETE RUJ 00000 43 R 02 MTLSL_LOGNAME = 3 001 

DEVSM_DMT = 0020000 MTL$L_UCB = 0000000 

DEVSM_FOR = 4 8? MTLSV_VOLSET = B88 38 

DEVSM_MNT = 00 MTL$W-SIZE = 

DEVSM_RCK = 40000000 NAME _CENGTH = 444 0 
DEVSM_SWL = F444! NAME STRING = 0000000C¢ 
DEVSM_WCK = 8000 309 ORBSC_GRP_PROT 2 90008 0 
DEVSV_ALL = 0000001 ORBS$L_OWNER = 00000000 
DEVSV_DMT = 00000015 ORBSL_OWN_PROT = SOD bOS TS 
DEVSV_FOR = 00000018 ORBSL_SYS_PROT = 00000018 
DEV$V_SQD = 00000005 ORBSL_WOR PROT = 00000024 
DEVICE_NAME = S484 $Q-PRID = 00000084 

DO 00000255 R 02 IPL = 00000012 
DTS_RUJNL = 00000001 PRVSV_PHY IO = 00000016 
EMBSB_VM_NAMLNG = QOOOO0TE SCHSIOLOCRW eeeeenee = X 02 
EMBSK_VD = 00000041 CHSIOUNLOCK eeneeeee =X 8 02 
EMBSK_VM_LENGTH = 0000003E SS$_NORMAL = 00000001 
EMBSL_VM_ERRCNT = 00000014 SS$-VALNOTVALID = 000009F 
EMBSL_VM_OPRC = 00000018 SYSSASSIGN aeeeeeee GX 02 
EMBSL_VM_OWNUIC = BOObo SS SYSSDASSGN eeeeenee GX 02 
EMBST_VM_LABEL = 0000003 SYSSDEQ aeaneene GX 02 
EMBST_VM_NAMTXT = 0000001F SYSSENQW eeneeeee GX 02 
EMBSW_VM_ENTRY = 44644 es SYSSGETLKIW eeneeeee GX BS 
EMBSW_VM_NUMSET = 00000030 SYS$Q10W aeeeeeee GX 0 
E _VM_UNIT = 0000001C UCBS$L_DDB = SA 
EMBSW_VM_VOLNUM = 0000002E UCBSL_DEVCHAR = 00000038 
ERLSACLOTEMB eeeeeeee = X 02 UCBS$L_LOCKI = eats 
ERLSRELEASEMB eeeeeeee = X 0 UCBSL_OPCNT = 4 0 
EXESC_SYSEFN eeeeeeee = X 0 UCB$L_ORB = 0000001C 
EXESDEALLOCATE eereeeee =X 0 UCBS$L_VCB = 00000034 

EXE SDE ANONPAGED eeeeeeee = X 0 UCBSM_VALI = 00000800 

EXE SDEAPAGED ereereee =X 0 UCBSV_MOUNT ING = 00000009 

FORE IGN 000000DB R 0 UCBSV_UNLOAD = Sob oeS 

FUNC = 00000008 UCBSW_ERRCNT = 00 4: 
10$M_DMOUNT s 00004 9 UCBSW_REFC = 3008 C 
10$_ACPCONTROL = UCB$W_STS = 00000064 
10$_AVAILABLE = 444 11 UCBSW_UNIT = 44 54 
10$_UNLOAD = 00000001 VCBS$B_STATUS2 = 00000053 
1OCSCVT_DEVNAM eeeeeeee =X 0 VCB$L_VOLLKID = SRNR E 
IOCSDALCOC_DMT eeeeeree =X 8 VCB$T_VOLNAME = 00000014 

10C$0 1 SMOURT 9 90 9 RG VCB$V_MOUNTVER s $0088 02 
IPL$_ASTDEL = 0 VCBSW"MCOUNT = 0000004C 
LCKS$R_CRMODE = 00000001 

LCKSK_EXMODE = 5 

LCK$K~PWMODE 2 4 

LCKSM_ CONVERT s 

LCKSM_CVTSYS = 

LCK$M_NOQUOTA s 2 
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DISMOUNT = DISMOUNT A MOUNTED MASS STORAGE VOLUME yo i i 3B 9: tb 3 poxives O 
Psect synopsis -SEP=-19 6 


tesecen owen ceases a+ 


PSECT name Allocation PSECT No. Attributes 
» 00 ¥ 0.) NOPIC USR CON LCL N 
1¢ 1.) \NOPIC USR CON ABS - LCL NOSHR 
2¢ 2.) NOPIC USR- CON LCL NOSHR 


ter eeee eee eee ece Seo meee 


; Performance” indicators ! 


Seo ene wee eran ero eeeaeeee + 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 09:00:00.0? 00: 0:0) «33 
Command processing 115 00:00:00.54 00: 9:83. 5 
Pass 493 a ERS 4 0:01:03.98 
pyeset table sort 1 bs SS 0:00:10.29 
s 2 115 00:00:03.44 0:00:10.17 
ae E, table output 13 Bp BR: 20- AS 0:00:00.53 
Psect synopsis output 2 Bp BR: 0.0 00:00:00.02 
Cross-reference output 0 00: 800-07 es Bt 
Assembler run totals 770 00:00:27.44 0:01:30.69 


1% working set yp was 1650 pages. 

13983 bytes (223 pages) of virtunl memory were used to buffer the intermediate cod 

Sew. were 120 pages of symbol table space allocated to hold 2155 non-local and 26 focal symbols. 
560 source Lines were read in Pass 1, producing 15 object records in Pass 2 

42 pages of virtual memory were used to define 41 macros. 


Macro Library name Macros defined 
“$52 28DUACB: SYS. OBJ LIB so 1 13 
“$255$DUA28:(SYSLIBJSTARLET.MLB;2 5 

TOTALS (all Libraries) 8 


2412 GETS were required to define 38 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:DISMOUNT/OBJ=O0BJ$:DISMOUNT MSRC$:DISMOUNT/UPDATE=(ENHS$:DISMOUNT) +EXECMLS/LIB 


SYS.SR cD 


NORD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC BYTE 
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